// .txt

beginzonescript;

variables;

short crime_tolerance = 5;
short last_abil;
short i;
short ter1 = 0;
short ter2 = 0;
short ter3 = 0;
short stone_mess = 0;
short mehken_mess = 0;

body;

beginstate INIT_STATE;

	set_name(8,"Private Hyneman");
	set_name(9,"Private Savage");
	set_aggression(8,7);
	set_aggression(9,7);
	
	add_range_to_group(10,13,1);
	set_aggression(1001,7);

	add_range_to_group(14,19,2);
	set_aggression(1002,8);
	add_range_to_group(20,24,3);
	set_aggression(1003,8);
	add_range_to_group(25,30,4);
	set_aggression(1004,8);
	
	add_range_to_group(31,35,5);
	set_name(31,"Krog");
	set_boss_level(31,1);
	if (gf(3,1) > 0)
		erase_char(1005);

	set_name(36,"Fyora Sentinel");
	set_boss_level(36,1);
	set_name(37,"Fyora Sentinel");
	set_boss_level(37,1);

	set_name(43,"Shrouded Worm");
	set_aggression(43,6);
	change_max_health(43,50);
	set_boss_level(43,1);
	place_particle_num(43,21,12,10);

	set_name(44,"Shrouded Thahd");
	change_max_health(44,50);
	set_boss_level(44,1);
	place_particle_num(44,22,12,10);		

	set_name(48,"Shrouded Fyora");
	change_max_health(48,50);
	set_boss_level(48,1);
	place_particle_num(48,23,12,10);		

	set_aggression(51,7);
	set_aggression(53,7);

	if (get_sdf(1,6) > 0) {
		make_zone_hostile();
		}

	last_abil = get_current_tick();
	
	set_crime_tolerance(crime_tolerance);
	
	if (gf(2,1) > 0)
		sf(4,29,1);
	break;

beginstate EXIT_STATE;

break;

beginstate START_STATE;
	if ((ter1 == 0) && (gf(3,8) > 0)) {
		ter1 = 1;
		set_terrain(25,40,175);
		set_terrain(25,39,175);
		set_terrain(25,38,175);
		set_terrain(26,38,175);
		set_terrain(26,37,175);
		set_terrain(26,36,175);
		set_terrain(26,35,175);
		set_terrain(26,34,175);
		set_terrain(26,33,175);
		set_terrain(26,32,175);
		set_terrain(26,31,175);
		set_terrain(26,30,175);
		set_terrain(17,30,175);
		set_terrain(18,30,175);
		set_terrain(19,30,175);
		set_terrain(20,30,175);
		set_terrain(21,30,175);
		set_terrain(22,30,175);
		set_terrain(23,30,175);
		set_terrain(24,30,175);
		set_terrain(25,30,175);
		}
	if ((ter2 == 0) && (gf(3,9) > 0)) {
		ter2 = 1;
		set_terrain(30,31,175);
		set_terrain(31,31,175);
		set_terrain(32,31,175);
		set_terrain(33,31,175);
		set_terrain(34,31,175);
		set_terrain(35,31,175);
		set_terrain(35,32,175);
		set_terrain(35,33,175);
		set_terrain(35,34,175);
		set_terrain(35,35,175);
		set_terrain(36,35,175);
		set_terrain(37,35,175);
		set_terrain(38,35,175);
		}
	if ((ter3 == 0) && (gf(3,10) > 0)) {
		ter3 = 1;
		set_terrain(54,31,175);
		set_terrain(53,31,175);
		set_terrain(53,30,175);
		set_terrain(53,29,175);
		set_terrain(53,28,175);
		set_terrain(53,27,175);
		set_terrain(53,26,175);
		set_terrain(53,25,175);
		set_terrain(53,24,175);
		set_terrain(53,23,175);
		set_terrain(53,22,175);
		set_terrain(53,21,175);
		set_terrain(53,20,175);
		set_terrain(52,20,175);
		set_terrain(51,20,175);
		set_terrain(50,20,175);
		set_terrain(49,20,175);
		set_terrain(48,20,175);
		set_terrain(47,20,175);
		set_terrain(46,20,175);
		set_terrain(45,20,175);
		set_terrain(45,19,175);
		set_terrain(45,18,175);
		set_terrain(45,17,175);
		set_terrain(45,16,175);
		set_terrain(44,16,175);
		set_terrain(43,16,175);
		set_terrain(42,16,175);
		}
		
	// clear zone?
	//if ((zone_clear(ME) == FALSE) && (get_flag(,) > 0)) {
		//print_str_color("",2);
		//clear_zone(ME);	
		//}
		
	if ((get_crime_level() >= crime_tolerance) && (get_sdf(1,6) == 0)) {
		make_zone_hostile();
		set_flag(1,6,1);
		}
	if ((gf(1,6) > 0) && (gf(2,1) < 2)) 
		begin_talk_mode(290);

	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(8,"Bahhhh.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(8,"So cold.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(8,"Grumble.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(9,"Oh, hush.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(9,"It'll be over soon.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(9,"Bread?");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(31,"Krog hide.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(31,"You go.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(31,"No kill Krog.");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(32 + get_ran(1,0,3),"Rrrrr!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(32 + get_ran(1,0,3),"Chomp!");
	if (get_ran(1,0,100) < 10)
		give_char_text_bubble(32 + get_ran(1,0,3),"Munch. Munch.");


	if (((is_combat()) && (tick_difference(last_abil,get_current_tick()) > 0)) || ((is_group()) && (tick_difference(last_abil,get_current_tick()) > 5))) {
		last_abil = get_current_tick();
		if ((is_group()) && (stone_mess < 2) && (has_spec_item(5) > 0) && (gf(7,7) == 0)) {
			stone_mess = stone_mess + 1;
			if (stone_mess == 2)
				begin_talk_mode(16);
			}
		if ((mehken_mess < 10) && (is_group()) && (char_in_party(47) >= 0) && (gf(3,7) == 0) && (get_ran(1,0,2) == 1)) {
			mehken_mess = mehken_mess + 1;
			if (mehken_mess == 6) {
				sf(3,7,1);
				begin_talk_mode(17);
				}
			}
		}
break;

beginstate 10;
	if ((char_ok(36)) && (get_attitude(36) < 10) && (has_spec_item(11) > 0))
		begin_talk_mode(15);
	if ((char_ok(37)) && (get_attitude(37) < 10) && (has_spec_item(11) > 0))
		begin_talk_mode(15);
break;

//	print_str("");
//	set_terrain_string_range(".",3);
//	set_terrain_string_range("The sign says - .",3);
